BYTE(NT,1)=!10
   1 :return ;CF=LARGE
   2 data @(10),7,7,-24534,-22358,2178,-30558,-22358,-22358,-30584,0,7,7,-24534,-22358,-30558,2178,-22358,-22358,-30584
   3 data @(90),5,5,42,168,168,168,42;goto 5
   4 box A,B,C,D,7;box -A,B,C,D,7;return 
   5 FB=8;FA=27;BC=175;FC=83
   6 data @(120),5,5,-16180,63,-16129,63,-16180
   7 data @(30),7,7,-24534,-22358,2178,10378,-22358,-22358,-30584,0,7,7,-24534,-22358,10378,2178,-22358,-22358,-30584
   8 data @(50),5,5,42,-32598,-32598,-32758,10
  10 clear ;X=0;L=0;H=0;I=0
  11 data @(70),5,5,42,-32758,-32758,-32758,42,0,0,0,5,5,42,-32598,-32598,-32598,42
  12 data @(100),5,5,0,-32640,-32598,-32598,42,0,0,0,5,5,40,168,-32598,-32598,42
  13 data @(60),5,5,42,-32598,-32598,-32640,0
  15 V=0;J=0;K=23;O=rnd (3)-2;P=rnd (3)-2;if O=0goto 15
  16 if P=0goto 15
  20 &(20)=0;S=0;gosub 60;clear ;NT=0;gosub 40;goto 200
  30 show 0,-7,2,@(120);return 
  40 &(22)=153;&(21)=9;&(17)=160;&(18)=107;&(18)=80;for Z=1to B;next Z;return 
  60 for Z=1to 900;next Z;return 
  70 for Z=17to 23;&(Z)=0;next Z;return 
  80 box 0,-41,120,11,F;return 
  90 &(16)=30;gosub 30;&(20)=78
  92 if A=0if B=-7L=L+100;H=H+L;V=0;&(20)=15;CY=-41;CX=-30;F=4;gosub 80;print "<BONUS ",#0,L,">";F=3;gosub 80
  95 gosub 30;return 
 100 gosub 40;&(20)=72;&(16)=70;for A=5to 80step 2;circle C,D,Adiv 5,rnd (3);&(16)=A;next A;I=I+1;gosub 120
 102 if I>2CX=-32;CY=-41;F=4;gosub 80;print "<GAME OVER>";gosub 70;F=3;gosub 80;goto 104
 103 goto 15
 104 if TR(1)run 
 105 goto 104
 120 H=H+S;if H>E E=H;if I>2gosub 600
 122 if H>30000H=H-30000
 123 box 0,20,118,32,4;Q=Q+1;if Q>3Q=1
 125 CY=29;CX=-40;print "<SCORE> ",#1,H
 126 CX=-40;print "<HIGH SCORE>";CX=-33;for Z=127to 129;TV=@(Z);next Z;print " ",#1,E;box 0,20,115,32,3;return 
 200 for A=-55to 55step 5;box A,0,1,80,5;next A
 210 for A=40to -43step -5;box 0,A,140,4,4;next A
 220 gosub 500
 240 F=4;gosub 80;CY=-41;CX=-25;print "<PACK RAT>";F=3;gosub 80
 245 X=80;box -44,-41,19,5,4;for A=Ito 2;show -50+Amul 6,-41,1,@(X);&(16)=-Amul 8+70;gosub 60;next A
 250 A=0;B=-7;T=J;U=K;M=10;show A,B,2,@(X);C=A;D=B;show J,K,2,@(M)
 300 for G=0to 6;@(G)=J;if G=5G=0
 310 if @(1)=@(5)O=-O;@(1)=B
 320 if @(3-Q)=@(4)P=-P;@(3-Q)=1
 330 Z=Sdiv 50;if RM<6if Vgosub 90
 340 if RM=9V=1
 350 &(20)=210;&(16)=68
 352 if PX(J,K+Pmul 4)#3K=K+(Pmul 5)
 355 if PX(J+Omul 4,K)#3J=J+(Omul 5);if ABS(J)<55goto 361
 356 O=1;if A<J+5O=-O
 357 P=1;if B<K+5P=-P
 361 Y=Pmul 5+Omul 10+25;show T,U,2,@(M);show J,K,2,@(Y);T=J;U=K;M=Y;if J=Aif K=Bgoto 100
 365 if &(16)R=JX(1);W=JY(1);X=Rmul 10+Wmul 20+80
 370 if PX(A+Rmul 4,B-1)=0A=A+Rmul 5
 375 if ABS(A)>55W=0;A=-A+Rmul 5
 380 if PX(A,B+Wmul 4)=0B=B+Wmul 5
 385 show C,D,2,@(80);show A,B,2,@(X);C=A;D=B
 390 if PX(A,B)=3S=S+1;point A,B,1;&(20)=G+48;&(16)=55;if S=169G=8
 393 show C,D,2,@(X);show C,D,2,@(80)
 395 next G
 400 gosub 70;&(16)=24;B=800;gosub 40;gosub 120
 402 &(17)=129;for B=1to 300;next B;&(17)=136
 403 clear ;gosub 125;for A=-80to 80step 5;point A,-2,1;next A
 405 gosub 60;&(17)=129;for B=1to 2;for A=95to -95step -5
 406 show A,-2,2,@(10);show A+5,-2,2,@(10);show A-10,-2,2,@(80);show A-15,-2,2,@(70);show A-15,-2,2,@(70);show A-15,-2,2,@(80);&(21)=A;&(23)=A
 410 next A;next B;&(16)=19;goto 15
 500 data A,0,34,13,15;gosub 4;data A,0,8,3,23;gosub 4;data A,20,28,13,13;gosub 4;data A,40,28,13,13;gosub 4;data A,40,13,13,3;gosub 4
 510 data A,25,8,3,13;gosub 4;data A,16,3,15,3;gosub 4;data A,9,13,15,3;gosub 4
 520 data A,0,17,13,5;gosub 4;data A,45,3,23,3;gosub 4
 530 data A,55,23,3,37;gosub 4;data A,45,-7,23,3;gosub 4;data A,40,-17,13,3;gosub 4;data A,55,-22,3,27;gosub 4
 540 data A,35,-22,3,13;gosub 4;data A,50,-32,13,13;gosub 4;data A,0,-12,23,3;gosub 4;data A,0,-21,3,15;gosub 4
 550 data A,21,-13,5,15;gosub 4;data A,24,-13,5,15;gosub 4;data A,20,-22,13,3;gosub 4;data A,20,-25,13,7;gosub 4
 560 data A,11,-25,5,8;gosub 4;data A,10,-1,3,5;gosub 4;data A,29,42,59,2;gosub 4;return 
 600 CY=0;print "input 3 INITIALS ",;for Z=127to 129;@(Z)=KP;TV=@(Z);next Z;return 
:return ;run 
